home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / PEGCITY.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.1 KB  |  61 lines
  1. # Pegasus Networks - City (Australia) PPP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-10-95 Earl White
  4.  
  5. STRING username
  6. STRING password
  7.  
  8. TRACE OFF
  9.  
  10. SetTimeout      90                      # reset maximum script timeout
  11.  
  12.  
  13. # Get username from access method
  14. CfgGetValue "Username" username
  15.  
  16. IF result = 0 THEN
  17.     GetInput "Enter your username:" username
  18.     IF result = 0 THEN
  19.         PRINT "Warning, no username entered."
  20.     ELSE
  21.         PRINT "Username set to:"; username
  22.     ENDIF
  23. ENDIF
  24.  
  25. CfgGetValue "Password" password
  26.  
  27. IF result = 0 THEN
  28.     GetPassword "Enter your password:" password
  29.     IF result = 0 THEN
  30.         PRINT "Warning, no password entered."
  31.     ELSE
  32.         PRINT "Password set."
  33.     ENDIF
  34. ENDIF
  35.  
  36. CommWaitFor "Username:"
  37.     CommSend "pegasus"
  38.     commSend "%r"
  39.  
  40. CommWaitFor "Password:"
  41.     CommSend "pegasus"
  42.     CommSend "%r"
  43.  
  44. # Connection to network setup - now really login
  45.  
  46. CommWaitFor  "login:"
  47.     CommSend username
  48.     CommSend "%r"
  49.  
  50. CommWaitFor  "password:"
  51.     CommSend password
  52.     CommSend "%r"
  53.  
  54. CommWaitFor  "type):"
  55.     CommSend "%r"
  56.     CommSend "ppp"
  57.     CommSend "%r"
  58.  
  59. END                             #success if we got this far
  60.  
  61.